home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
shazam11.zip
/
DEMOSE.EVT
< prev
next >
Wrap
Text File
|
1991-11-04
|
2KB
|
82 lines
{===================================================================
ABOUT: created with DLGDSN
===================================================================}
procedure heAbout ;
{$I edabout.src }
var
Dialog : PDialog ;
begin
Dialog := MakeDialog ;
DeskTop^.ExecView ( Dialog ) ;
Dispose ( Dialog , Done ) ;
end ;
procedure heSystemFiles ;
begin
heCloseAll ;
LoadWinIni ;
LoadDosIni ;
heTile ;
end ;
{-------------------------------------------------------------------
-------------------------------------------------------------------}
procedure heOpen ;
begin
if ExecDialog ( New ( PFileDialog ,
Init ( FileSpec , 'Open file',
'~N~ame' ,
fdOpenButton , 100 ) ) ,
@FileSpec) = cmCancel then EXIT ;
OpenEditor ( FileSpec , TRUE ) ;
end ;
{-------------------------------------------------------------------
-------------------------------------------------------------------}
procedure heNew ;
begin
OpenEditor ( '' , TRUE ) ;
end ;
{-------------------------------------------------------------------
-------------------------------------------------------------------}
procedure heChangeDir ;
begin
ExecDialog ( New ( PChDirDialog ,
Init ( cdNormal , 0 ) ) , NIL ) ;
end ;
{-------------------------------------------------------------------
-------------------------------------------------------------------}
procedure heShowClipboard ;
begin
ClipWindow^.Select ;
ClipWindow^.Show ;
end ;
{-------------------------------------------------------------------
25 line <--> 43/50 line (EGA/VGA)
-------------------------------------------------------------------}
procedure heVideoMode ;
var
NewMode : Word ;
begin
NewMode := ScreenMode xor smFont8x8;
if NewMode and smFont8x8 <> 0 then
ShadowSize.X := 1
else
ShadowSize.X := 2 ;
SetScreenMode ( NewMode ) ;
end ;
procedure heUserScreen ;
begin
PullScreen ;
while not KeyPressed do ;
while KeyPressed do
if ReadKey = #0 then ;
DoneMemory ;
Application^.Redraw ;
end ;